UC知道VB的问题`高手来帮看下
来源：百度知道 编辑：UC知道 时间：2024/05/12 18:34:17
求工资税的问题,哪出的错啊?谁指导指导
Private Sub Form_click()
Dim a!
a = InputBox("输入工资金额")
If a < 1000 Then
a = a * 0
Print a
ElseIf a >= 1000 And a <= 2000 Then
a = (a - 999) * 0.025
Print a
ElseIf a >= 2001 And a <= 4000 Then
a = (a - 999) * 0.035
Print a
ElseIf a > 4000 Then
a = (a - 999) * 0.05
Print a
End If
End Sub
题目是1000以下0 1000-2000~2.5% 2001-4000~3.5% 4000以上5%
我写的说是错的,又不告诉我哪错了,我想问下,会的告诉下,要是能写出来就更好了
Private Sub Form_click()
Dim a!
a = InputBox("输入工资金额")
If a < 1000 Then
a = a * 0
Print a
ElseIf a >= 1000 And a <= 2000 Then
a = (a - 999) * 0.025
Print a
ElseIf a >= 2001 And a <= 4000 Then
a = (a - 999) * 0.035
Print a
ElseIf a > 4000 Then
a = (a - 999) * 0.05
Print a
End If
End Sub
题目是1000以下0 1000-2000~2.5% 2001-4000~3.5% 4000以上5%
我写的说是错的,又不告诉我哪错了,我想问下,会的告诉下,要是能写出来就更好了
这样改简单又不会出错：
Private Sub Form_click()
Dim a!
a = InputBox("输入工资金额")
Select Case Val(a)
Case 0 To 999
a = a * 0
Case 1000 To 2000
a = (a - 999) * 0.025
Case 2001 To 4000
a = (a - 999) * 0.035
Case Else
a = (a - 999) * 0.05
End Select
Print a
End Sub
Private Sub Form_click()
Dim a as double
a = InputBox("输入工资金额")
If a < 1000 Then
a = a * 0
debug.print a
ElseIf a >= 1000 And a <= 2000 Then
a = (a - 999) * 0.025
debug.print a
ElseIf a >= 2001 And a <= 4000 Then
a = (a - 999) * 0.035
debug.print a
ElseIf a > 4000 Then
a = (a - 999) * 0.05
debug.print a
End If
End Sub
a = Val(InputBox("输入工资金额"))